home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / comm / mail / YAMscripts.lha / DispHTML.rexx < prev    next >
OS/2 REXX Batch file  |  1997-04-02  |  996b  |  46 lines
  1. /* DispHTML.rexx 1.0 by Kai Nikulainen
  2.    Set MIME viewer for text/HTML to sys:rexxc/rx yam:rexx/dispHTML.rexx %s
  3.    and copy this script to YAM:rexx.
  4.  
  5.    If you have any problems or suggestions, mail me at knikulai@utu.fi
  6.  
  7.    Check also http://www.utu.fi/~knikulai/ARexx.html for lots of other scripts
  8.  
  9. */
  10. options results
  11. parse arg file
  12.  
  13. browser='run <>nil: Work:IBrowse/IBrowse'    /* Change this to suit your system */
  14.  
  15. address command 'copy >nil:' file 't:letter.html'
  16. html='file://localhost/t:letter.html'
  17.  
  18. no_browser=1
  19.  
  20. lst=show('P')
  21.  
  22. if pos('MINDWALKER',lst)>0 then do
  23.   address 'MINDWALKER' 'OpenURL '|| html
  24.   no_browser=0
  25.   end
  26.  
  27. if pos('VOYAGER',lst)>0 then do
  28.   address 'VOYAGER' 'OpenURL '|| html
  29.   no_browser=0
  30.   end
  31.  
  32. if pos('IBROWSE',lst)>0 then do
  33.   address 'IBROWSE' 'GotoURL ' || html
  34.   no_browser=0
  35.   end
  36.  
  37. if pos('AWEB',lst)>0 then do
  38.   address value substr(lst,pos('AWEB.',lst),6)        
  39.   'Open ' || html
  40.   no_browser=0
  41.   end
  42.  
  43. if no_browser then address command browser html
  44.  
  45. exit
  46.